Option Explicit
Sub L_Sample075()
    Dim myDobj As New DataObject
    Dim myStr
    myStr = "DEF"
    With myDobj
        .SetText myStr
        .PutInClipboard
    End With
    With Worksheets(1)
        Application.Goto .Cells(1, 1)
        .Paste
    End With
    Set myDobj = Nothing
End Sub
